BEGIN SCRIPT Rueckhalteseile
-- sonar sample-06 / drop test on H-section
-- created: 28/11/2016 L&G_Software
-- all variables in [cm g us]-system
-- section type: H-section HEA160 (GS-6152.34)
-- Aufhaengung_bergseitig
-- Seilschlaufen (bights) Drahtdurchmesser d=18mm


LOOP FOR (I, 1, 2, 1) -- 2 bights

SET VALUE (NEW_GROUP_NR)
--------------------------------------------------------------------
-- Bight
--------------------------------------------------------------------
CREATE OBJECT (O1, TORUS_SEGMENT, 2.16, 0.9, 180.0)
CREATE OBJECT (O2, CYLINDER, -2.16, 0, 0, -0.72, -21.6, 0, 0.9) -- bight L
CREATE OBJECT (O3, CYLINDER, 2.16, 0, 0, 0.72, -21.6, 0, 0.9) -- bight R
CREATE OBJECT (O4, CYLINDER, 0, -18.0, 0, 0, -27, 0, 2.34) -- sleeve

SET PROPERTY (O1, GROUP_NR, LAST_GROUP_NR)
SET PROPERTY (O2, GROUP_NR, LAST_GROUP_NR)
SET PROPERTY (O3, GROUP_NR, LAST_GROUP_NR)
SET PROPERTY (O4, GROUP_NR, LAST_GROUP_NR)

SET PROPERTY (O1, COLOR_STD, 3) -- silver
SET PROPERTY (O2, COLOR_STD, 3)
SET PROPERTY (O3, COLOR_STD, 3)
SET PROPERTY (O4, COLOR_STD, 22) -- grey 4

--------------------------------------------------------------------
-- Properties
--------------------------------------------------------------------
SET GROUP_PROPERTY (LAST_GROUP_NR, DENSITY, 7.8)
SET GROUP_PROPERTY (LAST_GROUP_NR, C_INTERACT_LIN, 1.0)
SET GROUP_PROPERTY (LAST_GROUP_NR, C_INTERACT_QUAD, 0.1)
SET GROUP_PROPERTY (LAST_GROUP_NR, NAME, "Seilschlaufen/Rueckhalteseile")
SET GROUP_PROPERTY (LAST_GROUP_NR, INTERACT_MODE, ACTIVE)

--------------------------------------------------------------------
-- Links
--------------------------------------------------------------------
CREATE LINK (K1, NORMAL, O2, O4, -1.0, -18.0, 0) -- SchlaufeL - muffle
CREATE LINK (K2, NORMAL, O2, O4, -1.5, -21.0, 0)
CREATE LINK (K3, NORMAL, O2, O4,  0.0, -21.0, 0)

CREATE LINK (K4, NORMAL, O3, O4, 1.0, -18.0, 0) -- SchlaufeR - muffle
CREATE LINK (K5, NORMAL, O3, O4, 1.5, -21.0, 0)
CREATE LINK (K6, NORMAL, O3, O4, 0.0, -21.0, 0)

CREATE LINK (K7, NORMAL, CTR120, O1, O2) -- Torussegment - bights
CREATE LINK (K8, NORMAL, CTR120, O1, O3)

SET PROPERTY (K1, C_LINK, 1.0)
SET PROPERTY (K2, C_LINK, 1.0)
SET PROPERTY (K3, C_LINK, 1.0)
SET PROPERTY (K4, C_LINK, 1.0)
SET PROPERTY (K5, C_LINK, 1.0)
SET PROPERTY (K6, C_LINK, 1.0)
SET PROPERTY (K7, C_LINK, CTR120, 1.0, 0.1)
SET PROPERTY (K8, C_LINK, CTR120, 1.0, 0.1)

--------------------------------------------------------------------
-- Position
--------------------------------------------------------------------
ROTATE OBJECTGROUP (O1, 0, 0, 0, 0, 1.570796327, 0) -- Rot Y (Pi/2)
ROTATE OBJECTGROUP (O1, 0, 0, 0, -3.141592654, 0, 0) -- Rot X (-Pi)
TRANSLATE OBJECTGROUP (O1, RELATIVE, 0, 1800.50, 400.0)

DO IF (I==1)
  ROTATE OBJECTGROUP (O1, 0, 1796.00, 0, 0, 0, -0.6) -- Rot Z (-34.38)
  ROTATE OBJECTGROUP (O1, 0, 1790.00, 400.0, 0.78, 0, 0) -- Rot X (44.69)
  TRANSLATE OBJECTGROUP (O1, RELATIVE , 0, 0, 0)
END IF
DO IF (I==2)
  ROTATE OBJECTGROUP (O1, 0, 1796.00, 0, 0, 0, 0.6) -- Rot Z (+34.38)
  ROTATE OBJECTGROUP (O1, 0, 1790.00, 400.0, 0.78, 0, 0) -- Rot X (44.69)
  TRANSLATE OBJECTGROUP (O1, RELATIVE , 0, 0, 0)
END IF

END FOR
-- end of script
